powered by
sym.test(x)
diri.nr, diri.est, rdiri, dirimean.test
x <- rdiri( 100, c(5, 7, 1, 3, 10, 2, 4) ) sym.test(x) x <- rdiri( 100, c(5, 5, 5, 5, 5) ) sym.test(x)
Run the code above in your browser using DataLab